home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PRIM / STARTUP.ELC < prev    next >
Text File  |  1993-03-28  |  14KB  |  75 lines
  1. ;;; compiled by @win386 on Mon Mar 22 00:36:06 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/prim/startup.el
  3. ;;; emacs version 19.4 Lucid.
  4. ;;; bytecomp version 2.09; 16-jan-93.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (fset 'command-line-process-help #[(arg) "└┬├ !ê┬─!ê┼╞!½å┬╟!ê¬ä┬╚!ê┬╔!ê╩╦!½ä┬╠!ê┬═!ê╬╧!)ç" [external-debugging-output standard-output princ emacs-version "\n\n" fboundp x-create-screen "Emacs accepts all standard X Toolkit command line options.  In addition,\nthe " "The " "following options are processed in the order encountered:\n\n  -help            Print this message and exit.\n  -version        Print version info and exit.\n  -funcall <function>    Invoke the named lisp function with no arguments.\n  -f <function>        Same as -funcall.\n  -load <file>        Load the named file of lisp code into emacs.\n  -l <file>        Same as -load.\n  -insert <file>    Insert file into the current buffer.\n  -i <file>        Same as -insert.\n  -kill            Exit emacs." featurep energize "\n  -energize        Connect to the Energize server at $ENERGIZE_PORT." "\n  +N <file>        Start displaying <file> at line N.\n\nThese options are processed only if they appear before all other options:\n\n  -batch        Execute noninteractively (messages go to stderr.)\n            This option must be first in the list.\n  -nw            Inhibit the use of any window-system-specific\n            display code: use the current tty.\n  -no-init-file        Do not load an init file (~/.emacs).\n  -q            Same as -no-init-file.\n  -user <user>        Load user's init file instead of your own.\n  -u <user>        Same as -user.\n\nAnything else is considered a file name, and is placed into a buffer for\nediting.\n\nEmacs has an online tutorial and manuals.  Type ^Ht (Control-h t) after\nstarting emacs to run the tutorial.  Type ^Hi to enter the manual browser.\n" kill-emacs 0] 2])
  14. (defvar directory-abbrev-alist nil "\
  15. *Alist of abbreviations for file directories.
  16. A list of elements of the form (FROM . TO), each meaning to replace
  17. FROM with TO when it appears in a directory name.
  18. This replacement is done when setting up the default directory
  19. of a newly visited file.  *Every* FROM string should start with `^'.
  20.  
  21. Use this feature when you have directories which you normally refer to
  22. via absolute symbolic links.  Make TO the name of the link, and FROM
  23. the name it is linked to.")
  24. (fset 'abbreviate-file-name #[(filename &optional hack-homedir) "ë½ÿ┬    @@ \"½è    @A ─ò┼OP    Aë¼h)½ö┬╟╚╔╩!!P \"½ê╩ ─ò┼OP ç" [directory-abbrev-alist tail string-match filename 0 nil hack-homedir "^" regexp-quote expand-file-name "~"] 6 "\
  25. Return a version of FILENAME shortened using directory-abbrev-alist.
  26. See \\[describe-variable] directory-abbrev-alist RET for more information.
  27. If optional argument HACK-HOMEDIR is non-nil, then This also substitutes
  28. \"~\" for the user's home directory."])
  29. (byte-code "└┬ç" [(normal-top-level) top-level nil] 1)
  30. (defvar command-line-processed nil "\
  31. t once command line has been processed")
  32. (defconst inhibit-startup-message nil "\
  33. *Non-nil inhibits the initial startup messages.
  34. This is for use in your personal init file, once you are familiar
  35. with the contents of the startup message.")
  36. (defconst inhibit-default-init nil "\
  37. *Non-nil inhibits loading the `default' library.")
  38. (defconst command-switch-alist nil "\
  39. Alist of command-line switches.
  40. Elements look like (SWITCH-STRING . HANDLER-FUNCTION).
  41. HANDLER-FUNCTION receives switch name as sole arg;
  42. remaining command-line args are in the variable `command-line-args-left'.")
  43. (defvar term-setup-hook nil "\
  44. Function to be called after loading terminal-specific lisp code.
  45. It is called with no arguments.  This variable exists for users to set,
  46. so as to override the definitions made by the terminal-specific file.
  47. Emacs never sets this variable itself.")
  48. (defvar keyboard-type nil "\
  49. The brand of keyboard you are using.  This variable is used to define
  50. the proper function and keypad keys for use under X.  It is used in a
  51. fashion analogous to the environment value TERM.")
  52. (defvar window-setup-hook nil "\
  53. Function used to initialize window system display, after command line args.
  54. Users should not set this variable; use term-setup-hook instead.")
  55. (defconst initial-major-mode 'lisp-interaction-mode "\
  56. Major mode command symbol to use for the initial *scratch* buffer.")
  57. (defvar init-file-user nil "\
  58. When the `.emacs' file is read, this says which user's init file it is.
  59. The value may be the null string or a string containing a user's name.
  60. If the value is a null string, it means that the init file was taken from
  61. the user that originally logged in.
  62.  
  63. In all cases, `(concat \"~\" init-file-user \"/\")' evaluates to the
  64. directory name of the directory where the `.emacs' file was looked for.")
  65. (defvar site-run-file "site-run" "\
  66. File containing site-wide run-time initializations.
  67. This file is loaded at run-time before ~/.emacs.  It contains inits
  68. that need to be in place for the entire site, but which, due to their
  69. higher incidence of change, don't make sense to load into emacs'
  70. dumped image.  Thus, the run-time load order is: 1. file described in
  71. this variable, if non-nil; 2. ~/.emacs; 3. default.el.")
  72. (defvar init-file-name (byte-code "┴>½é┬ç├ç" [system-type (ms-dos win386) "_emacs" ".emacs"] 2) "\
  73. Name of the initialization file.")
  74. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩ ╠═Mê╬╧Mê╨╤Mê╥╙Mê╘╒Mê╓╫Mê╪┘Mê┌█Mê▄▌Mê▐▀MêαßMêΓπ!¼âΣ#σµMêτΦMç" [command-line-process-funcall #[(arg) "└    @!    A\n )ç" [intern command-line-args-left fn] 2] command-line-process-load #[(arg) "@┬├    !!½ä├    !─    ┼╞#ê)Aëç" [command-line-args-left file file-exists-p expand-file-name load nil t] 4] command-line-process-insert #[(arg) "└    @!ê    Aëç" [insert-file-contents command-line-args-left] 2] command-line-process-kill #[(arg) "└┴!ç" [kill-emacs t] 2] command-line-process-version #[(arg) "└┴ ┬P├\"ê─┼!ç" [princ emacs-version "\n" external-debugging-output kill-emacs 0] 3] (("-f" . command-line-process-funcall) ("-e" . command-line-process-funcall) ("-funcall" . command-line-process-funcall) ("-l" . command-line-process-load) ("-load" . command-line-process-load) ("-i" . command-line-process-insert) ("-insert" . command-line-process-insert) ("-kill" . command-line-process-kill) ("-version" . command-line-process-version) ("-help" . command-line-process-help)) command-switch-alist premature-death-function #[(string &optional error) "└┬ ½û─┼ @╟N A¡ü╚╔╩ A╦#%¬é    \"ê╠═!½è┬─╬╠═!\"    \"ê┬─╧\"    \"ê┬─╤\"    \"ê)╙╘!ç" [external-debugging-output stream princ error format "\n%s: %s%s%s\n" string error-message ": " mapconcat prin1-to-string ", " getenv "EMACSLOADPATH" "\n$EMACSLOADPATH is %s" "\nload-path is %S" load-path "\nexec-directory is %S\n" exec-directory kill-emacs 33] 10] normal-top-level #[nil "½ä┴┬!ç├ ┼=¼à╞╟╚\"ê    ë\n½ƒ╦\n@@ \"½ì\n@A ═ò╬OP \nAë\n¼a)╧ ç" [command-line-processed message "Back to top level." t system-type vax-vms mapcar #[(var) "└    !ë¡ò\nG GW¡Ä─ !─\n!Ü¡à┼\n!ë)ç" [getenv var value default-directory file-attributes file-name-as-directory] 4] ("PWD" "HOME") directory-abbrev-alist tail string-match default-directory 0 nil command-line] 5] command-line-init #[nil "└\n½ê\n├ ÿ½é─    ¼├½└@ë╟ÿ¼å╚ÿ½ç└A¬º╔ÿ½ê└\nA¬Ö╦ÿ¼å╠ÿ½ïAë@A¬é═)¬:╧>½å╨ë¬╜╥╙!ë¡┤╒ÿ¼å╓ÿ½å═ë¬ó╫ÿ¼å╪ÿ½å└ë¬É┘ÿ¼å┌ÿ¡ä╨ë))ç" [nil done init-file-user user-real-login-name "" command-line-args-left argi "-q" "-no-init-file" "-no-site-file" site-run-file "-u" "-user" t system-type (ms-dos win386) never version-control getenv "VERSION_CONTROL" vc "t" "numbered" "nil" "existing" "never" "simple"] 3] command-line #[nil "A┬├─Åê┼ ê╞╟!½Åè╟qê╔=½ä\n ê) ¼â╠ ê═ ê╬ ê¡â╨╤!)ç" [command-line-args command-line-args-left error (byte-code "└ ê    ?¡é┬  ½â┼ ê ╞=½è╟╚ !¼ä╔╩!ê╦ ê╠ ç" [set-default-load-path noninteractive user-login-name init-file-user window-system initialize-terminal-1 x x-window-id selected-screen premature-death-function "Initialization error: Loading term/x-win.el didn't create an X screen!\nThis probably means that this emacs is picking up an old (v18) lisp directory.\n" command-line-init initialize-first-screen] 2) ((error (premature-death-function "Initialization error" error))) load-init-file get-buffer "*scratch*" major-mode fundamental-mode initial-major-mode window-system initialize-terminal-1 initialize-terminal-2 command-line-1 noninteractive kill-emacs t] 3] load-init-file #[nil "└┴┬Åç" [error (byte-code "└\n;½å├\n─ë#ê)¡ó├╟=½â╚¬ç╔╩ PQ─ëë$ê «ê└├═─ë#)ç" [nil inhibit-startup-message site-run-file load t init-file-user system-type vax-vms "sys$login:.emacs" "~" "/" init-file-name inhibit-default-init "default"] 5) ((error (byte-code "└┴\n@├N\nA¡ü─┼╞\nA╟#$ç" [message "Error in init file: %s%s%s" error error-message ": " mapconcat prin1-to-string ", "] 8)))] 3] initialize-terminal-1 #[nil "½─    ¼┴\n½ì├─\n!┼Q╞╟#ê¬▒╚╔!╞\në ½Ñ├ P╟ë#¼¢╠═ \"ë\n½ï ╬\nOë ¬_╞ë ¼[*╧╨╤Åç" [term-file-prefix noninteractive window-system load symbol-name "-win" nil t getenv "TERM" hyphend term string-match "[-_][^-_]+$" 0 error (byte-code "¡â┴└!ç" [window-setup-hook run-hooks] 2) ((error (premature-death-function "Error in window-setup-hook" error)))] 5] initialize-terminal-2 #[nil "└┴┬Åç" [error (byte-code "¡â┴└!ç" [term-setup-hook run-hooks] 2) ((error (byte-code "└┴\n@├N\nA¡ü─┼╞\nA╟#$ç" [message "Error in term-setup-hook: %s%s%s" error error-message ": " mapconcat prin1-to-string ", "] 8)))] 3] command-line-1 #[nil "¼¡    ?¡¿\n?¡ñ├ ─ÿ¡₧┼ ?à│╞Ä╟ ╚▒ê╔╩!cê╦ ê╠═!ê╬╧!)ç╤═╤½▀@═A╪\"ë½ëA!ê¬╛┌█\"½ê▄!¬»Të▌U½Ä▐▀\"!êp¬ëα▀\"!êß!¼àΓ!ê╤*¬πV¡ìΣ!«çσ▌!êµ═!,ç" [command-line-args-left inhibit-startup-message noninteractive buffer-name "*scratch*" input-pending-p ((byte-code "è└┴!qê┬ ê├─!ê)─ç" [get-buffer "*scratch*" erase-buffer set-buffer-modified-p nil] 2)) emacs-version "\nCopyright (C) 1990 Free Software Foundation, Inc.\nCopyright (C) 1990-1993 Lucid, Inc.\nCopyright (C) 1993 Pearl Software.\n" substitute-command-keys "\n\nType \\[help-command] for help; \\[advertised-undo] to undo changes.  (`C-' means use CTRL key.)\nTo kill the Emacs job, type \\[save-buffers-kill-emacs].\nType \\[help-with-tutorial] for a tutorial on using Emacs.\n\nGNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for full details.\nYou may give out copies of Emacs; type \\[describe-copying] to see the conditions.\nType \\[describe-distribution] for information on getting the latest version." fontify-copyleft set-buffer-modified-p nil sit-for 120 default-directory 0 line first-file-buffer file-count dir tem argi assoc command-switch-alist string-match "^\\+[0-9]+\\'" string-to-int 1 find-file expand-file-name find-file-other-window zerop goto-line 2 get-buffer-window other-window buffer-menu] 5] find-emacs-root-internal #[(path) "└    !┬    !┼╞╟ \"!½ï┼╞╚ \"!½â «ú┼╞╔ \"!½Ä┼╞╩ \"!½å╞╦ \"«ì╠    !ë¡å═╞     \"!*ç" [file-name-directory path file-name-nondirectory name dir file-directory-p expand-file-name "lisp/prim" "etc" "../lisp/prim" "../etc" "../" file-symlink-p find-emacs-root-internal] 4] set-default-load-path #[nil "└    !┬    !ë¡ä─┼ \" ¡ä─╟ \" ¡Å╔╩!¡è╦\n«ä─╠ \"!½╧¥¼╚╧C\"╨╤╥╤╙%╤뽫@ë╓¥¼£─\"ë½æ¥¼è╦!CñAë¼R*½É¥¼ë╧C\"¼è½å╦!╔┘!½î¼ê─┌\"C╔╩!½æë\n½è¼å\n▄P▌ ,ç" [abbreviate-file-name execution-path find-emacs-root-internal root expand-file-name "lisp" lisp "etc" etc boundp lock-directory file-name-as-directory "lock" lock load-path append directory-files nil "^[^-.]" dirs-only file files ("RCS" "CVS") exec-path exec-directory Info-directory-list "../info/" superlock-path "!!!SuperLock!!!" set-default-load-path-warning] 7] set-default-load-path-warning #[nil "└┴!½â    ¬ü┬├─ëëë    ;½ë╩    !¼â─     ¡å ¡é    ?à+è═╬!qê╧ ê╨p!ê    ¼å╤B ¼å╥B ¼å╙BAA½è╘╒╓#¬ùA½è╘╒╫#¬ê╒╪@\"┘┌█▄▐▒ê «ö▀ !@«ìαß\"¡åΓëöOë½îαπ\"½åΓëöO½îαΣ\"½åΓëöO ½ä ¼àσµ▒ê ¼ë½åτΦ▒ê ¼ô½É ½âΘ¬üΩδ∞▒ê¬è ¼å½âφcê    ¼Äεcê½ê∩≡±≥▒ê≤ed\"êebê⌠⌡÷\"ê⌠≈ ÷\"ê╧ ê)┬-ç" [boundp lock-directory t 70 nil guess message warnings fill-column lock file-directory-p exec-directory load-path get-buffer-create " *warning-tmp*" erase-buffer buffer-disable-undo "lock-directory" "exec-directory" "load-path" apply format "%s, %s, and %s" "%s and %s" "variable %s" "couldn't find an obvious default for " ", and there were no defaults specified in paths.h when emacs " "was built.  Perhaps some directories don't exist, or the " "emacs executable, " execution-path " is in a strange place?" reverse string-match "/[^/]+$" 0 "/\\(src\\|etc\\|lisp\\)/?$" "/$" "\n\nWithout both exec-directory and load-path, emacs will " "be very broken.  " "Consider making a symbolic link from " "/etc to wherever the appropriate emacs etc directory is" "Consider making a symbolic link " ", and " "from " "/lisp to wherever the appropriate emacs lisp library is.  " "." "\n\nWithout lock-directory set, file locking won't work.  " "Consider creating " "/lock as a directory or " "symbolic link for use as the lock directory.  " "(This directory must be globally writable.)" fill-region princ "\nWARNING:\n" external-debugging-output buffer-string] 8] boundp cdlist nil initialize-cdlist #[nil "└┴!┬ëëëë¡╡è╚╔!ëqê╩ êcê╦cêebê`d`dW½ô╠═ ╬#ê╧`S{! B`¬h ƒ)-ç" [getenv "CDPATH" nil l end here buf cdpath get-buffer-create "** cdpath-decode **" erase-buffer 58 re-search-forward ":" 33 directory-file-name] 6] fontify-copyleft #[nil "¡φ┴┬!¡Φè├ebê┼╞├╟#½î┬╚╔ö╔ò\"╩\"ê¬mebê┼╦├╟#½î┬╚╔ö╔ò\"╠\"ê¬mebê═╬├╟#½è┬╚╔ö╔ò\"╧\"êebê═╨├╟#½è┬╚╔ö╔ò\"╧\"ê┼╤├╟#¡ë┬╚╔ö╔ò\"╧\"*ç" [window-system fboundp set-extent-face nil case-fold-search re-search-forward "\\b\\(C-[xh]\\( \\([CM]-\\)?.\\)?\\|M-x [-a-z]+\\)\\b" t make-extent 0 bold "^Copyright[^\n]+$" bold-italic search-forward "ABSOLUTELY NO WARRANTY" italic "Energize Programming System" "[-A-Za-z_]+@lucid\\.com"] 4]] 2)
  75.